package RealObjects;

package RealObjects::urls;

use lib '/home/'.$ENV{USER}.'/djpp/core/service';
use base qw(BaseUrls);

sub patterns {
	my $self = shift;
	
	return [
		[ '^/rss/catalog/?$', "RSS::Catalog::list", {} ],
		[ '^/rss/?$', "RSS::Index::list", {} ],
		[ '^/rss/arch/(A<channel>\d+)/?$', "RSS::Catalog::arch", {} ],	
		[ '^/rss/arch/(A<channel>\d+)/(A<year>\d+)/?$', "RSS::Catalog::arch", {} ],	
		[ '^/rss/arch/(A<channel>\d+)/(A<year>\d+)/(A<month>\d+)/?$', "RSS::Catalog::arch", {} ],
		[ '^/rss/arch/(A<type>(?:add)|(?:ass))/?$', "RSS::Catalog::arch", {} ],
	];
}


1;
